unit Point;

interface

type

    TPoint = class
    private
        pointX :integer;
        pointY :integer;
        pointZ :integer;
    public
        constructor Create(x,y,z : integer);
        function GetX(): integer;
        function GetY(): integer;
        function GetZ(): integer;
    protected
    published
    end;

    TPath = array of TPoint;

implementation

constructor TPoint.Create(x,y,z : integer);
    begin
        inherited create;
        pointX := x;
        pointY := y;
        pointZ := z;
    end;

function Tpoint.GetX(): integer;
begin
    result:= pointX;
end;

function Tpoint.GetY(): integer;
begin
    result:= pointY;
end;

function Tpoint.GetZ(): integer;
begin
    result:= pointZ;
end;

end.
